Top 10k strings from Yatzee (1984)(CP Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
9 D$="ABCDE":
8 D(NOP,DS)<0
6 D$(J)=C$(J)
5 ;"________________________________"
5 ;"Press any key for more "'"instructions."
4 D(NOP,J)<0
4 C$="ABCDE":
3 D$=" ":
3 D$=" "
3 CONGRATULATIONS
3 ;N$(L);" won":
3 ;"Hard luck !!";
2 W(L,GAME)=1
2 T(I)=T(I)+D(I,J)
2 G$=" ":
2 D(NOP,SN)<0
2 D$="ABCDE"
2 D$(J)=G$(J)
2 C$="ABCDE"
2 ;" - You won ":
2 "Too many players":
2 between":
1 loader
1 Yahtzee clone
1 YATZEE
1 WHICH ITEM
1 W(J,GAME)=1
1 W(J,GAME)=0
1 V(I)=V(I)+W(I,J)
1 U(I)>NPOINTS
1 U(I)=U(I)+P(I,J)
1 THROW=THROW+1
1 T(I)=T(I)+35
1 SCORE=SCORE+SN
1 SCORE=SCORE+A(J)
1 SCORE=SCORE+A(I):
1 S(J)=S(J)+1
1 R & D Strang
1 QPerfect TZX sampled from the original cassette by Church of the Latter-Day Speccy
1 P(J,GAME)=T(J):
1 NPOINTS=1000000
1 NGAME=1000
1 N$(NOP)=" ZX"
1 MAIN PROGRAM
1 LONG RUN M=5
1 LAST CHOICE
1 ILLEGAL ENTRY
1 I;" (Initials <max. 3>)":
1 GAME>NGAME
1 GAME=GAME+1
1 G$(J)=C$(J)
1 FIND OTHER DIE
1 FIND MAX S(J)
1 FIND DIE AND THROW
1 FIND 2,3,4 ETC
1 F$=" "
1 F$(J)=C$(J)
1 E$=" ":
1 E$(J)=C$(J)
1 Do you wish to play"'" the SPECTRUM Y or N ?"
1 D(NOP,DS1)<0
1 D(K,SN)=SCORE:
1 D$=D$(L3):
1 D$(J)=F$(J)
1 D$(J)=E$(J)
1 D$(J)=C$(J):
1 COMPUTER PLAY
1 CHECK 2,3,4,5,6
1 CALC & PRINT RUNNING TOTALS
1 ;N$(K);" - Throw "
1 ;"please wait"
1 ;"leave unspecified PRESS U"
1 ;"first to a points value PRESS P";
1 ;"a fixed No. of games PRESS F";
1 ;"______________";
1 ;"ZX chose option ";SN;" ":
1 ;"Written by:-";
1 ;"Which option (1-13) to score ? "
1 ;"TOTAL POINTS";
1 ;"Running totals";
1 ;"Press any key to start"
1 ;"Press any key for more"'"instructions."
1 ;"Press any key for more"'"instructions"
1 ;"Press any key "
1 ;"Press any Key for more "'"instructions."
1 ;"Player ";
1 ;"PRESS Y to start, E to exit"
1 ;"PRESS Y to start next game"
1 ;"PRESS E to exit"
1 ;"PRESS C to clear scores and "'" start again"
1 ;"OPTIONS"
1 ;"LOADING";
1 ;"GAMES WON"
1 ;"GAME ";J
1 ;"Do you wish to quit Y or N ? "
1 ;"Do you wish to play :-";
1 ;"Do you want instructions ?";
1 ;"9. Full House"
1 ;"6. Sixes"
1 ;"5. Fives"
1 ;"4. Fours"
1 ;"3. Threes"
1 ;"2. Twos"
1 ;"13. Chance"
1 ;"12. Long Run"
1 ;"11. Short Run"
1 ;"10. 5 of KIND"
1 ;"1. Aces"
1 ;"(Y)es, or";
1 ;" - You won this game":
1 ;" A B C D E"
1 ;" ":
1 ;" "
1 4 of KIND"
1 3 of KIND"
1 ,B,C,D,E in a single string,"'"then <ENTER> to hold the "'"corresponding dice"''"'0' {zero} then <ENTER> if you"'"wish to hold all dice and go to"'"input option"
1 '''"OPTION 8 - 4 of a KIND"'"You must have 4 dice the same."''"The points value is the sum of"'"all 5 dice."
1 '''"OPTION 12 - LONG RUN"'"You must have a RUN with all "'" 5 dice. "''"POINTS value = 40"
1 '''"OPTION 10 - 5 of a KIND"'"You must have ALL 5 dice the "'"same."''"POINTS value = 50"
1 '''"If at the end of the game the"'"total points for the first six"'"options is
1 ''"HE then throws the remaining"'"dice and again decides which"'"are to be kept. If necessary"'"repeating this for a third time."
1 "The first six options are:- "''"OPTION POINTS"'"1. Add the 1's in the 5 dice"
1 "Points value ?";NPOINTS
1 "OPTION 9 - FULL HOUSE"'"You must have a triplet (3 dice"'"the same) AND a pair."''"POINTS value = 25"
1 "OPTION 7 - 3 of a KIND"'"You must have 3 dice the same."''"The points value is the sum of"'"all 5 dice."
1 "OPTION 13 - CHANCE"'"NO conditions required"''"POINTS value = SUM of all 5 dice"
1 "OPTION 11 - SHORT RUN"'"You must have a RUN with at "'"least 4 dice. i.e. 1234, or 2345"'"or 3456"''"POINTS value = 30"
1 "No.of games you wish to play ?";NGAME
1 "In this game you have 5 dice."''"Each player (max. of 3) takes"'"his turn at throwing the dice."''"At the end of each throw the"'"player decides how many dice"'"A,B,C,D,E ,if any, he wishes to"'"keep."
1 "INPUT INFORMATION"''"When asked:"'" 'Which dice to be held ?'"''"Press"'"<ENTER> if no dice are to be "'"held"''"The appropriate (CAPITAL)letters"'"A
1 "INPUT INFORMATION (CONT'D)"''"Press I then <ENTER> if you"'"wish instructions."''"Press Q then <ENTER> if you "'"wish to quit the game."
1 "Enter No. of (human) players ?";NOP
1 "Each player has 13 options to"'"score. Each option must be used "'"once (and only once)."''"At the end of his turn the"'"player must decide which option"'"to score."''"At the end of the game the "'"player with the highest points"'"score is the winner."
1 "Dice to be held,0,I or Q?";D$
1 "6. Add the 6's in the 5 dice"
1 "5. Add the 5's in the 5 dice"
1 "4. Add the 4's in the 5 dice"
1 "3. Add the 3's in the 5 dice"
1 "2. Add the 2's in the 5 dice"
1 R&D Strang"
1 DIE THROW
1 63, then a bonus"'"of 35 points is awarded."
1 - INPUT AGAIN ":
1